home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earkit / news / thor / rexx / examples / globaldata.br < prev    next >
Text File  |  1998-05-24  |  4KB  |  81 lines
  1. /*  $VER: GlobalData.br 3.5 (8.3.95)
  2.  *
  3.  *  Shows global data.
  4.  *  
  5.  *  Script by: Eivind Nordseth, Ultima Thule Software.
  6.  */
  7.  
  8. /*    trace results */
  9.  
  10.     if ~show('p', 'BBSREAD') then do
  11.         address command
  12.             "run >nil: `GetEnv THOR/THORPath`bin/LoadBBSRead"
  13.             "WaitForPort BBSREAD"
  14.     end
  15.  
  16.     address "BBSREAD"
  17.  
  18.     /* Bit numbers for global data flags */
  19.  
  20.     GCB_IGNORE_KEEPMSG     = 0   /* Don't count messages when packing conferences. */
  21.     GCB_IGNORE_KEEPTIME    = 1   /* Don't check time when packing conferences. */
  22.     GCB_RESET_EVENT_NR     = 2   /* Reset event numbers when packing events. */
  23.     GCB_NO_XPK_METHOD      = 3   /* Don't use any xpk method. */
  24.     GCB_FILE_SIGNATURE     = 4   /* The Signature contains the path and name of a file containing the signature. */
  25.     GCB_AUTO_XPK_PACK      = 5   /* Automatically xpk pack all new messages when are written to the database. NB: A xpk method must have been defined. */
  26.     GCB_FORCE_PACK_REWRITE = 6   /* Force rewrite when packing conferences. */
  27.     GCB_COMMAND_SIGNATURE  = 7      /* The signature field contains the path and name of a command. When the command is executed should the signature contents be written to stdout. The template for the command is expected to be BBSNAME/K,CONFNAME/K. */
  28.     GCB_ALWAYS_REPLY_STR   = 8  /* Use reply string on all replies. */
  29.  
  30.     GETGLOBALDATA stem GLOBALDATA
  31.     if(rc ~= 0) then 
  32.     do
  33.         say BBSREAD.LASTERROR
  34.         exit
  35.     end
  36.  
  37.     say 'Dnloadpath:     ' GLOBALDATA.DNLOADPATH
  38.     say 'Uploadpath:     ' GLOBALDATA.UPLOADPATH
  39.     say 'Buffers:        ' GLOBALDATA.BUFFERS
  40.     say 'BufferSize:     ' GLOBALDATA.BUFFERSIZE
  41.     say 'Signature:      ' GLOBALDATA.SIGNATURE
  42.     say 'KeepMsg:        ' GLOBALDATA.KEEPMSG
  43.     say 'KeepTime:       ' GLOBALDATA.KEEPTIME
  44.     say 'XPKMethod:      ' GLOBALDATA.XPKMETHOD
  45.     say 'Tmpdir:         ' GLOBALDATA.TMPDIR
  46.     say 'TagFile:        ' GLOBALDATA.TAGFILE
  47.     say 'UserName:       ' GLOBALDATA.USERNAME
  48.     say 'UserStreet:     ' GLOBALDATA.USERSTREET
  49.     say 'UserAddress:    ' GLOBALDATA.USERADDRESS
  50.     say 'UserCountry:    ' GLOBALDATA.USERCOUNTRY
  51.     say 'UserPhone:      ' GLOBALDATA.USERPHONE
  52.     say 'HazeLevel 1:    ' GLOBALDATA.HAZELEVEL1
  53.     say 'HazeLevel 2:    ' GLOBALDATA.HAZELEVEL2
  54.     say 'HazeLevel 2:    ' GLOBALDATA.HAZELEVEL3
  55.     say 'PGPCommand:     ' GLOBALDATA.PGPCOMMAND
  56.     say 'PGPSignID:      ' GLOBALDATA.PGPSIGNID
  57.     say 'ReplyString:    ' GLOBALDATA.REPLYSTRING
  58.     say 'QuoteChars:     ' GLOBALDATA.QUOTECHARS
  59.     say 'StartupScript:  ' GLOBALDATA.STARTUPSCRIPT
  60.     say 'QuitScript:     ' GLOBALDATA.QUITSCRIPT
  61.     say 'BBSEnterScript: ' GLOBALDATA.BBSENTERSCRIPT
  62.     say 'BBSLeaveScript: ' GLOBALDATA.BBSLEAVESCRIPT
  63.     say 'ConfEnterScript:' GLOBALDATA.CONFENTERSCRIPT
  64.     say 'ConfLeaveScript:' GLOBALDATA.CONFLEAVESCRIPT
  65.  
  66.     gf = ''
  67.     if bittst(GLOBALDATA.FLAGS,GCB_IGNORE_KEEPMSG)     then gf = gf || 'IGNORE_KEEPMSG '
  68.     if bittst(GLOBALDATA.FLAGS,GCB_IGNORE_KEEPTIME)    then gf = gf || 'IGNORE_KEEPTIME '
  69.     if bittst(GLOBALDATA.FLAGS,GCB_RESET_EVENT_NR)     then gf = gf || 'RESET_EVENT_NR '
  70.     if bittst(GLOBALDATA.FLAGS,GCB_NO_XPK_METHOD)      then gf = gf || 'NO_XPK_METHOD '
  71.     if bittst(GLOBALDATA.FLAGS,GCB_FILE_SIGNATURE)     then gf = gf || 'FILE_SIGNATURE '
  72.     if bittst(GLOBALDATA.FLAGS,GCB_AUTO_XPK_PACK)      then gf = gf || 'AUTO_XPK_PACK '
  73.     if bittst(GLOBALDATA.FLAGS,GCB_FORCE_PACK_REWRITE) then gf = gf || 'FORCE_PACK_REWRITE '
  74.     if bittst(GLOBALDATA.FLAGS,GCB_COMMAND_SIGNATURE)  then gf = gf || 'COMMAND_SIGNATURE '
  75.     if bittst(GLOBALDATA.FLAGS,GCB_ALWAYS_REPLY_STR)   then gf = gf || 'ALWAYS_REPLY_STR '
  76.  
  77.     do w=4 to words(gf) by 4
  78.         gf    = subword(gf, 1, w) || '0a'x || '                 ' || subword(gf, w + 1)
  79.     end
  80.     say 'Flags:          ' gf
  81.